﻿' ----------------------------------------------------------------------------------
' Microsoft Developer & Platform Evangelism
' 
' Copyright (c) Microsoft Corporation. All rights reserved.
' 
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, 
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ----------------------------------------------------------------------------------
' The example companies, organizations, products, domain names,
' e-mail addresses, logos, people, places, and events depicted
' herein are fictitious.  No association with any real company,
' organization, product, domain name, email address, logo, person,
' places, or events is intended or should be inferred.
' ----------------------------------------------------------------------------------

Imports Microsoft.Samples.WindowsPhoneCloud.Phone.ViewModel

Namespace PivotContent

    Partial Public Class SqlSampleDataPage
        Inherits UserControl
        Public Sub New()
            Me.InitializeComponent()
            AddHandler Me.Loaded, AddressOf OnSqlSampleDataPageLoaded
        End Sub

        Public Property ViewModel() As SqlSampleDataPageViewModel
            Get
                Return TryCast(Me.DataContext, SqlSampleDataPageViewModel)
            End Get
            Set(ByVal value As SqlSampleDataPageViewModel)
                Me.DataContext = value
            End Set
        End Property

        Private Sub OnSqlSampleDataPageLoaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
            If Me.ViewModel IsNot Nothing Then
                Me.ViewModel.LoadSqlSampleData()
            End If
        End Sub
    End Class
End Namespace